//*****
//
// Date: 20.06.2016  15:55
//
// Generated by ADOxx - Library export -- V 2.0
//
//*****
//
// The file contains the following libraries:
//
//  Lock Position Library
//  Lock Position Dynamic Library
//  Lock Position Static Library
//
//*****

// Defined model types:
//
// 1. Lock Position Model
//    Class Lock
//
VERSION <5.1>

//================================================================================
//================================================================================
APPLICATION LIBRARY <Lock Position Library>
//================================================================================
//================================================================================

//================================================================================
//================================================================================
BUSINESS PROCESS LIBRARY <Lock Position Dynamic Library>
//================================================================================
//================================================================================

	ATTRIBUTE <Version number>
	VALUE ""

	ATTRIBUTE <Date last changed>
	VALUE "20.06.2016, 15:55"

	ATTRIBUTE <Last user>
	VALUE "Admin"

	ATTRIBUTE <Keywords>
	VALUE "ADOxx - Lock Position Library"

	ATTRIBUTE <Comment>
	VALUE ""

	ATTRIBUTE <Description>
	VALUE ""

	ATTRIBUTE <Modi>
	VALUE "MODELTYPE \"Lock Position Model\"
INCL \"Lock\""

	ATTRIBUTE <Page layouts>
	VALUE "LAYOUT \"Full page (without header/footer)\"
PAGE w:p h:p"

	ATTRIBUTE <Simmapping>
	VALUE "SIMOPTION undefined"

	ATTRIBUTE <Simtext>
	VALUE "SIMTEXT undefined"

	ATTRIBUTE <Queries>
	VALUE ""

	ATTRIBUTE <Input fields>
	VALUE ""

	ATTRIBUTE <AQL commands>
	VALUE ""

	ATTRIBUTE <Result attributes>
	VALUE ""

	ATTRIBUTE <Relation analysis>
	VALUE ""

	ATTRIBUTE <Service>
	VALUE "http://www.adoxx.org

faq@adoxx.org"

	ATTRIBUTE <User defined>
	VALUE "yes"

	ATTRIBUTE <Library icons>
	VALUE ""

	ATTRIBUTE <Evaluation queries>
	VALUE ""

	ATTRIBUTE <Evaluation input fields>
	VALUE ""

	ATTRIBUTE <Evaluation AQL commands>
	VALUE ""

	ATTRIBUTE <Evaluation result attributes>
	VALUE ""

	ATTRIBUTE <Sim result mapping>
	VALUE ""

	ATTRIBUTE <Numbering>
	VALUE "numeric"

	ATTRIBUTE <Graphical representation>
	VALUE "GRAPHREP
FILL color:aliceblue
RECTANGLE x:-.3cm y:-.3cm w:.6cm h:.6cm
"

	ATTRIBUTE <Days per year>
	VALUE 170

	ATTRIBUTE <Hours per day>
	VALUE 8

	ATTRIBUTE <CCC mapping>
	VALUE ""

	ATTRIBUTE <CCC default setting>
	VALUE ""

	ATTRIBUTE <Object arrangement>
	VALUE ""

	ATTRIBUTE <External coupling>
	VALUE "#===============================================
#---- INIT GLOBAL VARS
ON_EVENT \"AppInitialized\" {
  # this global variable controls whether to react to the postion move event
  SETG bListenToMoveChange:1

  CC \"Core\" GET_CLASS_ID classname:\"Lock\" 
  SETG nLocklassID:(classid)

  CC \"Core\" GET_ATTR_ID classid:(nLocklassID) attrname:\"Position\"
  SETG nPositionAttrId:(attrid)
  
  # create the dockable window for the output stream
  CC \"AdoScript\" CREATE_OUTPUT_WIN winid:\"EVENTLOG\" title:\"Event Logging\"
  
  # establish a global procedure as a helper implementation for timestamped logging
  PROCEDURE global EVENT_LOG msgType:string message:string {
    CC \"Application\" GET_DATE_TIME date-format:\"dd/mm/yyyy\" time-format:\"hh:mm:ss\"
    SET currentDateTime: ((date) + \" \" + (time))
    CC \"AdoScript\" OUT winid:\"EVENTLOG\" text: (\"[\" + (msgType) + \"@\" + currentDateTime + \"]:"
	      " \" + (message) + \"\\n\")
  }
  # Initial event log message for the \"AppInitialized\" event
  EVENT_LOG msgType:\"EVENT_LOG\" message: (\"AppInitialized\")
  
}
ON_EVENT \"SetAttributeValue\" { 
  SET nInstID:(instid)
  SET nAttrID:(attrid)
  SET nModelID:(modelid)
  SET sOldVal:(oldval)
  # check if the listener for the event is active
  IF (bListenToMoveChange) {
    # check whether object is locked
    CC \"Core\" GET_ATTR_VAL objid:(nInstID) attrname:\"Lock Position\"
    SET nPositionLocked:(val)
    # check whether an ecode was returned, and ecode > 0 means that the attribute is not available or"
	      " existing
    IF (ecode = 0) {
      IF (nPositionLocked = 1) {
        # check whether the change happen in the Positon attribute
        IF (nAttrID = nPositionAttrId) {      
          # get new value for logging only
          CC \"Core\" GET_ATTR_VAL objid:(nInstID) attrid:(nAttrID)
          SET sNewPosition: (val)
          SET sOldObjPosition:(sOldVal)
          # log to window
          EVENT_LOG msgType:\"EVENT_LOG\" message: (\"Changed position from \" + sOldObjPosition +\" "
	      "to \" +sNewPosition)
          # important: change the listener to 0 -> no event triggered in the update position. Otherwi"
	      "se endless loop -> crash
          SETG bListenToMoveChange:0
          LEO parse:(sOldObjPosition) get-tmm-value:x:\"x\" get-tmm-value:y:\"y\"
          CC \"Modeling\" SET_OBJ_POS objid:(nInstID) x:(x) y:(y)
          # reset the listener after position change
          SETG bListenToMoveChange:1
        }
      }
    }
  }
}
"

	ATTRIBUTE <Agent definition>
	VALUE ""

	ATTRIBUTE <Variable check>
	VALUE "off"

	ATTRIBUTE <Configuration of documentation>
	VALUE ""

	ATTRIBUTE <Default settings>
	VALUE "GRID snap:on visible:off w:0.50cm h:0.50cm
        GRADIENT_PRINTING mode:avg-color"

	ATTRIBUTE <Predefined queries>
	VALUE ""

	ATTRIBUTE <Predefined evaluation queries>
	VALUE ""

	ATTRIBUTE <Dynamic evaluation modules>
	VALUE ""

	ATTRIBUTE <Path navigator>
	VALUE ""

	ATTRIBUTE <Versioning format>
	VALUE ""


//================================================================================
CLASS <__LibraryMetaData__> : <__D-construct__>
//================================================================================

//--- Class <__LibraryMetaData__> - Class attributes------------------------------

	CLASSATTRIBUTE <homedir>
	TYPE STRING
	VALUE "c:\\Program Files (x86)\\BOC\\ADOxx15_EN_SA\\"

		FACET <MultiLineString>
		VALUE 0

		FACET <AttributeHelpText>
		VALUE ""

		FACET <AttributeRegularExpression>
		VALUE ""


	CLASSATTRIBUTE <__ModelListChangeCounter__>
	TYPE INTEGER
	VALUE 0

		FACET <MultiLineString>
		VALUE 0

		FACET <AttributeHelpText>
		VALUE ""

		FACET <AttributeRegularExpression>
		VALUE ""

		FACET <AttributeNumericDomain>
		VALUE ""


	CLASSATTRIBUTE <__APListChangeCounter__>
	TYPE INTEGER
	VALUE 0

		FACET <MultiLineString>
		VALUE 0

		FACET <AttributeHelpText>
		VALUE ""

		FACET <AttributeRegularExpression>
		VALUE ""

		FACET <AttributeNumericDomain>
		VALUE ""


	CLASSATTRIBUTE <__UserListChangeCounter__>
	TYPE INTEGER
	VALUE 0

		FACET <MultiLineString>
		VALUE 0

		FACET <AttributeHelpText>
		VALUE ""

		FACET <AttributeRegularExpression>
		VALUE ""

		FACET <AttributeNumericDomain>
		VALUE ""


	CLASSATTRIBUTE <ClassAbstract>
	VALUE 1


	CLASSATTRIBUTE <ClassVisible>
	VALUE 1


	CLASSATTRIBUTE <GraphRep>
	VALUE ""


	CLASSATTRIBUTE <VisibleAttrs>
	VALUE ""


	CLASSATTRIBUTE <AttrRep>
	VALUE "NOTEBOOK
CHAPTER \"Description\"
ATTR \"Name\"
"


	CLASSATTRIBUTE <WF_Trans>
	VALUE ""


	CLASSATTRIBUTE <AnimRep>
	VALUE ""


	CLASSATTRIBUTE <HlpTxt>
	VALUE ""


	CLASSATTRIBUTE <Model pointer>
	VALUE ""


	CLASSATTRIBUTE <Class cardinality>
	VALUE ""



//--- Class <__LibraryMetaData__> - default values--------------------------------

	ATTRIBUTE <Position>
	VALUE ""


	ATTRIBUTE <External tool coupling>
	VALUE ""



//================================================================================
CLASS <__ModelTypeMetaData__> : <__D-construct__>
//================================================================================

	CLASSATTRIBUTE <ClassAbstract>
	VALUE 1


	CLASSATTRIBUTE <ClassVisible>
	VALUE 1


	CLASSATTRIBUTE <GraphRep>
	VALUE ""


	CLASSATTRIBUTE <VisibleAttrs>
	VALUE ""


	CLASSATTRIBUTE <AttrRep>
	VALUE "NOTEBOOK
CHAPTER \"Description\"
ATTR \"Name\"
"


	CLASSATTRIBUTE <WF_Trans>
	VALUE ""


	CLASSATTRIBUTE <AnimRep>
	VALUE ""


	CLASSATTRIBUTE <HlpTxt>
	VALUE ""


	CLASSATTRIBUTE <Model pointer>
	VALUE ""


	CLASSATTRIBUTE <Class cardinality>
	VALUE ""



//--- Class <__ModelTypeMetaData__> - Instance attributes-------------------------

	ATTRIBUTE <__GfxThumb__>
	TYPE LONGSTRING
	VALUE ""

		FACET <MultiLineString>
		VALUE 0

		FACET <AttributeHelpText>
		VALUE ""

		FACET <AttributeRegularExpression>
		VALUE ""


//--- Class <__ModelTypeMetaData__> - default values------------------------------

	ATTRIBUTE <Position>
	VALUE ""


	ATTRIBUTE <External tool coupling>
	VALUE ""



//================================================================================
CLASS <Lock> : <__D-construct__>
//================================================================================

	CLASSATTRIBUTE <ClassAbstract>
	VALUE 0


	CLASSATTRIBUTE <ClassVisible>
	VALUE 1


	CLASSATTRIBUTE <GraphRep>
	VALUE "GRAPHREP
FILL color:lemonchiffon
ELLIPSE rx:1.5cm ry:1cm"


	CLASSATTRIBUTE <VisibleAttrs>
	VALUE ""


	CLASSATTRIBUTE <AttrRep>
	VALUE "NOTEBOOK
CHAPTER \"Description\"
ATTR \"Name\"
ATTR \"Lock Position\" ctrltype:check
ATTR \"Position\" write-protected"


	CLASSATTRIBUTE <WF_Trans>
	VALUE ""


	CLASSATTRIBUTE <AnimRep>
	VALUE ""


	CLASSATTRIBUTE <HlpTxt>
	VALUE ""


	CLASSATTRIBUTE <Model pointer>
	VALUE ""


	CLASSATTRIBUTE <Class cardinality>
	VALUE ""



//--- Class <Lock> - Instance attributes------------------------------------------

	ATTRIBUTE <Lock Position>
	TYPE INTEGER
	VALUE 0

		FACET <MultiLineString>
		VALUE 0

		FACET <AttributeHelpText>
		VALUE ""

		FACET <AttributeRegularExpression>
		VALUE ""

		FACET <AttributeNumericDomain>
		VALUE ""


	ATTRIBUTE <Old_Postion>
	TYPE STRING
	VALUE ""

		FACET <MultiLineString>
		VALUE 0

		FACET <AttributeHelpText>
		VALUE ""

		FACET <AttributeRegularExpression>
		VALUE ""


//--- Class <Lock> - default values-----------------------------------------------

	ATTRIBUTE <Position>
	VALUE ""


	ATTRIBUTE <External tool coupling>
	VALUE ""



//================================================================================
//================================================================================
WORKING ENVIRONMENT LIBRARY <Lock Position Static Library>
//================================================================================
//================================================================================

	ATTRIBUTE <Version number>
	VALUE ""

	ATTRIBUTE <Date last changed>
	VALUE "14.06.2016, 17:05"

	ATTRIBUTE <Last user>
	VALUE "Admin"

	ATTRIBUTE <Keywords>
	VALUE ""

	ATTRIBUTE <Comment>
	VALUE ""

	ATTRIBUTE <Description>
	VALUE ""

	ATTRIBUTE <Modi>
	VALUE " "

	ATTRIBUTE <Page layouts>
	VALUE ""

	ATTRIBUTE <Simmapping>
	VALUE ""

	ATTRIBUTE <Simtext>
	VALUE ""

	ATTRIBUTE <Queries>
	VALUE ""

	ATTRIBUTE <Input fields>
	VALUE ""

	ATTRIBUTE <AQL commands>
	VALUE ""

	ATTRIBUTE <Result attributes>
	VALUE ""

	ATTRIBUTE <Relation analysis>
	VALUE ""

	ATTRIBUTE <Service>
	VALUE ""

	ATTRIBUTE <User defined>
	VALUE "yes"

	ATTRIBUTE <Library icons>
	VALUE ""

	ATTRIBUTE <Evaluation queries>
	VALUE ""

	ATTRIBUTE <Evaluation input fields>
	VALUE ""

	ATTRIBUTE <Evaluation AQL commands>
	VALUE ""

	ATTRIBUTE <Evaluation result attributes>
	VALUE ""

	ATTRIBUTE <Sim result mapping>
	VALUE ""

	ATTRIBUTE <Numbering>
	VALUE "numeric"

	ATTRIBUTE <Graphical representation>
	VALUE ""

	ATTRIBUTE <Days per year>
	VALUE 0

	ATTRIBUTE <Hours per day>
	VALUE 0

	ATTRIBUTE <CCC mapping>
	VALUE ""

	ATTRIBUTE <CCC default setting>
	VALUE ""

	ATTRIBUTE <Object arrangement>
	VALUE ""

	ATTRIBUTE <External coupling>
	VALUE ""

	ATTRIBUTE <Agent definition>
	VALUE ""

	ATTRIBUTE <Variable check>
	VALUE "on"

	ATTRIBUTE <Configuration of documentation>
	VALUE ""

	ATTRIBUTE <Default settings>
	VALUE ""

	ATTRIBUTE <Predefined queries>
	VALUE ""

	ATTRIBUTE <Predefined evaluation queries>
	VALUE ""

	ATTRIBUTE <Dynamic evaluation modules>
	VALUE ""

	ATTRIBUTE <Path navigator>
	VALUE ""

	ATTRIBUTE <Versioning format>
	VALUE ""